| ASSMX 0 


0000 © 
0000 
0000 
0000. 
0000. 


0000 
0000 
0000 
0000 


0000 


0000 


0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0.000 
0000 


0000 


0000 


0000. 


0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000. 


0000 


0000— 


0000 
0000 
0000 
0000 
0000 
0000 
0000 


0000 


0000 


~ 0000 
0000 — 
0000 
0000 
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* EXATRON STRINGY FLOPPY UTILITY ROUTINES #* 


07-02-79 * 


FEAR AE AEE A HE 


CHARLIE PACK 
25470 ELENA ROAD | 
LOS ALTOS HILLS, CA. 94022 


(415) 941-0495 EVENINGS © 


CHANGES FROM VERSION 3.1 ARE: 


IPL ROUTINE GETS STACK PAGE FROM INTERNAL 


DIPSWITCH INSTEAD OF FRONT PANEL SENSE Sw. 


RETURN CODE O7 NOW STORED IN FCB (BUG FIX). 
SINGLE DENSITY MODE IS FORCED FOR ALL OP- 


IF A TAPE HAS A CAPACITY OF >= HEX OFFFFH 
BYTES, HEX OFFFEH BYTES WILL BE CERTIFIED. 
IN 3.1 THIS DIDN'T WORK PROPERLY. 


COMMENT CORRECTIONS IN CERTIFY PROCEDURE. 
LAST 4 BYTES NO LONGER RESERVED FOR DATA 


AND CONTROL PORTS. 


THIS IS ONLY REQUIRED 


FOR MODULE OCCUPYING LAST 1K BLOCK. 
STILL MORE CODE COMPRESSION! 


EQU © 


0005 

0010. 

0015 * VERSION 3. 

0020 

0025.* 

0030 * WRITTEN BY: 

0040 * 

0045 * 

0050 *. 

0050 > 

0060 * 1. 

0065 * 

0070 *. 

0075 * 2. 

0080 * ERATIONS. 

0085 * 3. 

0090 * 

0095 * 

0100 * 4, 

0105 * 5. 

0110 # 

0115 * 

0120 * 6. 

0125." 

0130 * STATUS MASKS . 
— 0135 * 

0140 TBEM EQU 01H 
O745 RDYM EQU O2H 
0150 PAEM EQU 08H 

— 0155 EOTM EQU 80H 
0165 * USART CONTROL 

0170 * | | 
0175 CCHAR EQU O94H 
0180 CMARK EQU OCCH 
0185 FMARK EQU 055H 
0190 aoned EQU QO16H 
0195 | 
0200 see EFQU O31H 
0205 MTRC EQU O12H 
0210 RCVC EQU O16H 
0215 XMTC EQU 033H 

RSTC EQU O40H 
0225. HUNC EQU 096H 
MODC OBCH. 


;TRANSMITTER BUFFER EMPTY 
;DATA READY | 
;PARITY ERROR 
;END OF TAPE 


WORDS AND COMMANDS 


;CERTIFY TEST CHARACTER 
‘CERTIFY FILE MARK 
sDATA FILE MARK 

>SYNC WORD. 


*>MOTOR-OFF 
;MOTOR=ON 
y;RECEIVER-ON © 
>TRANSMIT 
sRE-SET 

sHUNT 

; MODE 


0000 
0000 


0000 


0000 


0000. 
0000 


0.000 


0000 


0000 
0000 
0000 
0000 
0000 
0000 


0000 


0000 
0000 
0000 
0000 


0000 


0000. 
0000: 
0000 
0000 
0000 
0000: 


0235. 
0240 
0245 * 


0250 


0255. 


0260 
0265 
0270 
0275 
0280 


0285 


0290 
0295 


0300. 
0305. 


0310 
0315 


0320 
(0325, 
0330 
0335 


0340 
0345 


0350 


0355 


0360 


% 


RCO 
RC1 
RC2 
RC3 
RCH 
RC5 
RC6 
RCT 
RC8 
* 


* RETURN CODES” 


EQU 


EQU 
—EQU 


EQU 


~EQU 


EQU 
EQU 
EQU 
EQU 


OOH ;NORMAL (GOOD) RETURN CODE 
O1H ;UNCORRECTABLE P.E. 

02H ;FILE NOT FOUND 

03H ;VERIFY ERROR 

O4H ;TAPE IS FULL 

O5H ;WRITE PROTECTED 

06H ;FILE POSITION ERROR 

O7H ;CAN'T AUTOSTART 

08H ;BAD MEMORY | 


* OTHER EQUATES 
¢ . : 


PSW 
SP 
RAMCH 


LEADL 


IBGPL 
TRURL 
START 
ESF CT 
CTLPT 


DATPT 
SWTPT 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


EQU 
EQU 


6 


6 

O6DH ;RAM CHECK CHARACTER 

OO140H ; BYTE LENGTH OF LEADER 
OO140H ;LENGTH OF INTER=BLOCK GAP 
OOOOAH ;BYTE LENGTH OF TRAILER 

$ 

START ;ADDR OF ESF CONTROLLER 
ESFCT+O0FFFH ;CONTROL PORT 
ESFCT+OFFEH ;DATA PORT | 
ESFCT+O0FFBH ;DIPSWITCH PORT | 


‘0000 


0000 


0000 
0001 
0004 
0004 
0005 
0008 
0008 
O00B 
OOOE 
0011 
0014 
0014 
0014 
0014 
0014 
0014 
0017 
OO1A 
001D 
001D 
001D 
001D 
0020 
0021 
0023 
0024 
0025 
0026 
0027 
0029 
O02A 
002C 
002C 
002C 
002C 
002C 
002D 
OO2F 
0030 
0031 
0033 
0036 
0036 
0037 
0038 
0039 
OO3A 


— 003C 


003D 
-—003E 
003F 
0040 
0041 
0043 
0044 
0045 
0046 
OO4T 
0048 


C3 


F3 
C3 


C3 
C3 
C3 
C3 


0049 


F3 | 


FA 


3 
F6 


Ee 


OF 


00 


O04 


/ 00 


00 
01 
02 


02 
03 


OF 


F3 


6D 


08. 


65 


58 


uy 


00 


0365 


* 


UTILITY SYSTEM ENTRY POINTS 


;PROGRAM IDENTIFIER | 
;INITIAL PROGRAM LOAD 


;PROGRAM IDENTIFIER 


START+400H ;JUMP TO MONITOR 


;GET SYSTEM CATALOG 

;GET OR VERIFY A DATA BLOCK 
;SAVE A DATA BLOCK 

;CERTIFY A TAPE 

;WIND TAPE 


WIND TAPE ~- POSITIONS BOT MARKER 


WHICH IS ALSO ADDRESS OF FCB. 


; INITIALIZE CONTROLLER 
;sFIND BEGINNING OF TAPE 


RESET j;RESET CONTROLLER & RETURN 


*READ DIPSWITCH PORT 


sINVERT IT 


;MASK RIGHT NYBBLE 


;SHIFT LEFT 4 BITS 


sMASK TO LAST PAGE OF 4K BLK 


| L, OFFH- FCBLN+FCB+1_ | 
HL NOW HAS ADDRESS OF TOP OF STACK + 1, 


FCB IS AT 


# 
# 
* TOP OF CHOSEN RAM PAGE AND STACK IS JUST 
* 


sLOAD STACK POINTER 


;CHECK FOR PRESENCE 


; OF READ/WRITE MEMORY 
;ERROR RETURN CODE 
;BRANCH IF BAD MEMORY 


*ACC.=0 

;RETURN CODE TO FCB 

-HL= &FCBOP | 

OPTION (AUTOQEXECUTE) TO FCB 


;FILE POS. (0) TO FCB 


- sHL=&FCBID 


;FILE ID TO FCB 
sHL=&FCBTY 


‘s3FILE TYPE TO -FCB 


;sHL=&FCBBG 
;ACC.=O0FFH 


0370 * ESF 
0375 * 
0380 EIPL DI 
0385 JMP IPL 
0390 * 
0395 EMON DI 
400, JMP 
~—o405 * 
O410 ECAT JMP CAT 
0415 EGET JMP GET | 
0420 ESAV JMP SAVE 
0425 ECER JMP CERT 
O430 EWTP EQU $ 
0435 * 
O4u0 * 
O445 * AT EXPOSED POSITION 
0450 * 
0455 CALL INITS 
0460 CALL BOT2 
0465 SMP 
O470 # | 
0475 * INITIAL PROGRAM LOAD 
O480 * 
0485 IPL LDA SWTPT 
0490 CMA 
0495 ANI . OFH 
0500 RLC 
0505 RLC 
0510 RLC 
0515 RLC 
0520 ORI OFH 
0525 MOV H,A 
0530 MVI_ 
0535 
0540 
O545 
0550 * BELOW FCB. 
0555 SPHL 
0560 MVI A, RAMCH 
0565 MOV M,A 
0570. CMP M 
0575 MVI A,RC8 
0580 JNZ IPLER 
0585 * | 
0590. PUSH H 
— 0595 XRA A 
0600 MOV M,A 
0605 INX H | 
0610 MVI oM,'xX? 
0615 INX HH. 
0620 MOV M,A 
0625 INX H | 
0630. MOV M,A 
0635 INX H 
0640 MVI M,‘At 
0645, INX H 
0650 DCR A 
0655 MOV M,A ~ 
0660 INX H 
0665. MOV M,A 
0670 POP 4H 


‘DUMMY BEGIN. ADDR TO FCB 
Tl ALsaFCB 


0049 
OO4C 
OO4F 
OO4F 
0050 
0052 
0055 
0056 
0057 
0058 
0059 
OO5A 
005D 
OO5E 
OO5F 
0061 
0062 
0062 
0064 
0065 
0066 
0068 
O006B 


98 
665 


09 


E2 


62 
FF 
O07 


FF 
68 


00 


00 


02 


00 


00 


0675 * 


0680 
0685 
0690 
0695 
0700 
0705 
0710 
0715 
0720 


0725 


0730 
0735 
0740 
O745 
0750 
0755 


0760 * 
0765 NOAS 


0770 


0775 IPLER 


0780. 


CALL 
JC 


MOV 
MVI 
CALL 
XCHG 
INX 
MOV 
ORA 
DCX 
JZ 


MOV 


CMA 
OUT 
PCHL 


MVI 
STAX 
CMA 
QUT 


0785 HALT JMP 


e ; 


GET ;GET PROGRAM INTO MEMORY 
IPLER ;JUMP IF ERROR 


B,A  j;SAVE RETURN CODE 
A,FCBAS-FCB 
EXT  ;GET AUTOSTART 


;ADDR IN HL 
H | 
A,H s;IS AUTOSTART IMPLE- 
2 sMENTED ON THIS FILE? 
H 


“NO, CANNOT AUTOSTART. 


A,B ;RESTORE RETURN CODE 


;SHOW RETURN CODE IN DATA 
;LIGHTS OF IMSAI 8080 
;AND JUMP TO PROGRAM. 


A,RC7 ;ERROR RETURN CODE 

TO FCB 

;SHOW RETURN CODE IN DATA 
;LIGHTS OF IMSAI 8080 
;AND SOFT-HALT. 


006B 


O06B 
O06B 
006B 
O06B 
OO06B 


006B 


OO06B 
006B 
O06B 


006B 


O06B 
006B 
006B 


006B 


OO6C 
O006D 
OO6F 
OO6F 
0072 
0072 
0073 
0074 
0075 
0076 
OO7T 
0078 
0078 
0079 
OO7C 
OO7C 
OOTE 
0081 
0084 
0084 
0087 
0088 
008B 
008C 
008D 
OO8F 
0092 
0095 


0098 © 


43 


FA 


02 


0790 


0795 
0800 
0805 
0810 


0815 © 


0820 
0825 
0830 
0835 
0840 
0845 


—-0850 


0855 
0860 


0865 


0870 
0875 
0880 


0885. 
0890 


0895 
0900 
0905 
0910 
0915 


0920 


0925 


0930 
09:35 
0940 


0945 


0950 
0955 


0960 
0965 
0970 
0975 
0980 


0985. 


0990 
0995 


1000 — 
1005: 


* 


* MAIN PROCEDURE TO EXAMINE THE CATALOG OF 
* EACH FILE 

# ENTRY: HL = ADDRESS OF FILE CONTROL BLOCK 
* EXIT: ZERO & CARRY FLAGS OFF = FILE CONTROL 
* BLOCK HAS CATALOG OF NEXT FILE. 

# IF FCBOP WAS ZERO AT ENTRY, THIS 
* WILL BE THE CATALOG OF THE FIRST 
* FILE. 

* ZERO FLAG SET = END OF TAPE, NO 

* MORE DATA (NOT AN ERROR) 

* CARRY FLAG SET = ERROR FOUND ON. 

* THIS FILE, FCBRC HAS NON-ZERO 

# — RETURN CODE 

it 

C 


AT PUSH H 
INX H 
MVI M,'C! 


»(SP)=&FCB 

: HL = &F CBOP 

; OPTION TO FCB 
CALL INITS ;INITIALIZE CONTROLLER 
POP 
PUSH 
INX 


H ;HL= -&FCB 
H 
H 
INX H 
A 
M 


sHL=&FCBFP 
,M ;ACC=PREVIOUS FILE POS. 
| ;BUMP CURRENT FILE POS. 


MOV 
INR 


ORA FIRST TIME THROUGH? 
| CZ BOT1 ;IF SO, FIND BEGIN- 
* | ‘NING OF ‘TAPE. 
- MVI C, FMARK 
CALL GETFM 
JZ ENDTP 


i 


-GET NEXT FILE MARK 
‘JUMP IF EOT | 
CALL GETWD ;GET FILE ID/TYPE IN D-E 
MOV E,A | 

CALL GETWD 

MOV 
POP H -HL=&FCB 

MVI A,FCBID-=FCB 

CALL INS ;FILE ID/TYPE TO FCB 
LXI D,OFFFFH ;DUMMY LOAD ADDR 
JMP GET2 ;GO TO "GET" ROUTINE 


0098 
0098 
0098 
0098 


0098 


0098 
0098 
0098 
0099 
O009B 
OO9E 
OO9E 
O0A1 
OOA3 
OOA6 
OOA9 
OOAA 
OOAA 
OOAA 
OOAA 
OOAA 
OOAA 
OOAA 
QOAC 


OOAF 


OOBO 
OOBO 
00B1 
OOB2 
00B3 
00B3 
OOB4 
OOB7 
OOBA 
OOBA 
OOBA 
OOBB 
OOBC 
OOBD 
OOBE 
00C1 
00C1 
00C2 
ooc4 
00C7 
00Cc8 


00C9 


— 00Cc9 
O0CC 
OOCF 


E5 


3E 
CD 


CD 
OE 
CD 
DA 
E 1 


03 
E2 


FA 
25, 
1F 
18 


05 
E2 


8A 
+3 


C9 


O02 
02 
03 


02 


02 


03 
02 


00 


05 


EE 


BA 
13 


02 


03 


02 


1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 


1060 


1065 
1070 
1075 


1080 


1085 
1090 
1095 
1100 
1105 
1110 
1115 
1120 
1125 
1130 
1735 


we RK KK KK K 


** KK K *€ 


GET2 


1140 * 


1745 
1150 
1155 
1160 
1165 
1170 
1175 
1180 
1185 
1190 
1195 
1200 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 


7245 


1250 


1255 


GET3 


PUSH 
MVI 
CALL 


CALL 
MVI 
CALL 
JC 
POP 


OBTAIN LOAD ADDRESS AND COUNT. 
ADDRESS IN FCBBG OVERRIDES THE LOAD AD- 
DRESS ON THE TAPE, 
THE DUMMY ADDRESS OFFFFH. 


MVI 
CALL 
PUSH 


XRA 
MOV 
MOV 


XCHG 
CALL 
JC 


INX 
MOV 
ORA 
DCX 
JNZ 


POP 
MVI 


CALL 


PUSH 


XCHG — 


CALL 
JC 


MAIN PROCEDURE TO GET A FILE FROM TAPE. 
ENTRY: HL 
EXIT: CARRY FLAG OFF = 
CARRY FLAG SET = 


= ADDRESS OF FILE CONTROL BLOCK 
SUCCESSFUL OPERATION 
NON-ZERO RETURN CODE 
IN ACC. AND IN FCBRC; DATA ERROR 
ADDR IN FCBER. 


H ;(SP)=&FCB 

A ,FCBID- FCB 

EXT sGET FILE ID/TYPE FROM FCB 
;D=FILE TYPE, E=FILE ID 

INITS ;INITIALIZE CONTROLLER 

C /FMARK 

FIND ;FIND THE REQUIRED FILE 

NOFIL ;JUMP IF NOT FOUND 

H : &F CB 


THE LOAD 
UNLESS FCBBG CONTAINS 


A,FCBBG-FCB 
EXT  ;GET FCBBG INTO D-E 
H | 


A , | | 
B,A ;RE-SET PARITY ERROR COUNT 
C,A 3AND LONG. PARITY VALUE 
sGET LOAD ADDR IN DeE 
;JUMP IF PARITY ERROR 


;DEsLOAD ADDR FROM FILE 
;HL=LOAD ADDR FROM FCB 


GETDW 
UNCPE 


a 


sHL=DUMMY LOAD ADDR? 
;NO, USE IT 
-HL=&FCB 


F CBBG- FCB | 
iS ;INSERT LOAD ADDR IN FCB 


Le PS On Seer 
=~ C7] 
-j 
CA) 


- sHL=THE REAL LOAD ADDR 


GETDW ;GET COUNT IN D-E 
UNCPE ;JUMP IF PARITY ERROR 


OOCF 
OOCF 


OOCF 


00D2 
00D3 
OOD4 
00D5 
OOD6 
OOD6 
00D9 
OODB 
OODE 
OODE 
OODE 
OODF 
OOEO 
OOE1 
OOE 1 
O0E3 
OOE6 
OOE8 
OOEB 
OOEB 
OOEC 
OOED 
OOFO 
OOFO 
OOF 1 
OOF? 
OOF5 
OOF5 
OOF6 
OOF7 
~O0F8 
OOF8 
OOFY9 
OOFA 
OOFB 
OOFC 
OOFF 
OOFF 
0100 
0101 
0102 
0104 
0107 
0108 


0108 


010B 
O10E 
O10F 
0111 
0114 
0115 


94 


DE 


OB 


EE 


F5 


oS 


CF 
07 
EE 


BA 
13 


09 


EE 


03 


00 
02 


00 


00 


00 


01 


00 


02 


_ 


02 


02 


# 


* VERIFY OR GET DATA BLOCK INTO MEMORY 
% 


GETNX CALL GETCH ;GET A DATA CHARACTER 


# 


XCHG 
XTHL 
PUSH 
MOV 


JNC 
MVI 
CALL 


INX 
MOV 
DCX 


CPI 
JZ 
CPI 
JZ 


MOV 
STAX 
JMP 


VERFY LDAX 


CMP 
JNZ 


POP 
XTHL 
XCHG 


INX 
DCX 
MOV 
ORA 
JNZ 


DCX 
XACHG 
POP 


;DE=MEMORY POINTER 
*HL=&FCB, (SP)=COUNT 

B .-«$SAVE ERROR DATA 

B,A ;B=DATA FROM TAPE 


GET4 ;JUMP IF NO ERROR 

A,FCBER-FCB 

INS ;ELSE, INSERT ADDR OF 
sERROR DATA IN FCB. 


H -HL=&OPTION CODE 
A,M ;ACC=OPTION (C,E,V,X) 
H 


-HL=&FCB 
tv's VERIFY ONLY? 
VERFY ;YES 
'C'  <sGET CATALOG ONLY? 
GET5 ;YES 
A,B 
D ;STORE DATA IN MEMORY 
GETS | 
D sACC. HAS CORRECT DATA 
B *-SAME AS DATA FROM TAPE? 
FILER ;NO 
B = ;RESTORE ERROR DATA 
>(SP)=&FCB 
- +HL=MEMORY POINTER 
*DE=COUNT 


H ‘BUMP MEMORY POINTER 
D -DECR. COUNT 

A,D | 

E -IS COUNT = O YET? © 
GETNX ;NO, CONTINUE LOOPING 
H 

H 

A 

I 

H 


;DE=ENDING ADDR 
-HL=&FCB 
FCBEN=-FCB 
S PUT ENDING ADDR IN FCB 
3 (SP)=&FCB 


’ 
N 


GETDW ;GET AUTOSTART IN D-E 


UNCPE ;JUMP IF PARITY ERROR 
H ~—6S &FCB 
A,FCBAS-FCB 


INS  ;PUT AUTOSTART IN FCB 
PUSH a 


H 


Ng 


0115 
0116 


0117 


0119 
O11C 
O11F 
O11F 
0122 
0123 
0126 
0129 
0129 
0129 
0129 
012C 
012D 
0130 
0131 
0132 
0133 
0136 
0137 
013A 
013A 
013B 
013C 
013D 
013F 
O142 
0144 
0147 
0147 
0149 
O14C 
O14D 
O14E 
O14F 
0150 
0153 
0153 
0155 
0153 
0155 
0158 
0158 
0159 
O15A 
0158 


015B. 


O15E 


01 
29 
13 
94 


13 
51 


94 
13 


32 
13 


37 


OB 
EE 


1D 


01 
02 


03 


O2 
02 


03 


02 


01 
O02 


02 


02. 


02 


02 


02 


O02 


1530 
1535 


1540 


1545 
1550 
1555 
1560 
1565 
1570 
1575 
1580 
1585 
1590 


# 


MOV 


MOV 
CPI 
JZ 

JNC 


CALL 
SUB 
JNZ 
JMP 


DC 
A,B 

1 
ONEPE 
UNCPE 


GETCH 
D 
UNCPE 
DONE 


* CORRECT SINGLE 
1595 *# 


;D=COMPUTED LONG. PARITY | 


;CHECK PARITY ERR COUNT 
>JUMP IF ONE P.E. 
‘JUMP IF >1 P.E. 


sGET LONG. PARITY 
;SAME AS COMPUTED? 
;NO, NOT CORRECTABLE 
;YES, WE ARE DONE 


PARITY ERROR 


;GET LONG. PARITY 
;SAME AS COMPUTED? | 
;YES, NOT CORRECTABLE 
;MASK UNMATCHED BITS 
;B=UNMATCHED BITS 
;PIND UNMATCHED BIT 


321 UNMATCHED BITS? 
;YES, NOT CORRECTABLE 


;HL=&OPTION CODE 
;ACC.=OPTION CODE 
sHL=&FCB 

sCATALOG OPTION? 

sYES, DON'T CORRECT ERR. 
sVERIFY ONLY OPTION? 
‘YES : 


A,FCBER=FCB 


‘GET ERROR 

-DATA ADDR IN HL 

;ACC. HAS BAD BYTE 
;COMPLEMENT BAD BIT 
sAND SAVE IT IN MEMORY 


RETURN CODE FOR FILE VERIFY ERROR 


A,FCBER-FCB 


1600 ONEPE CALL GETCH 
1605 CMP D 
1610 JZ  UNCPE 
1615 XRA D 
1620 MOV B,A 
1625 ROLL RAL 

1630 SNC ROLL 
1635 ORA A 
1640 JNZ UNCPE 
1645 * 

1650 INX 4H 
1655 MOV AJM 
1660 DCX 4H 
1665 CPI 'C! 
1670 JZ DONE 
1675 CPI 'y! 
1680 JZ DONE 
1685 * 

1690 MVI 

1695 CALL EXT 
1700 XCHG 

1705 MOV AJM 
1710 XRA B 
1715 MOV M,A 
1720 JMP DONE 
1725 # 

1730 * SET 

1735 * 

1740 FILER MVI 

1745 CALL INS 
1750 * 

1755 POP B 
1760 XTHL 

1765 XCHG 

1770 * 

1775 JMP VFYER- 


;INSERT ADDR OF 
sERROR DATA IN FCB 


:(SP)=&FCB 
-HL=MEMORY POINTER 
-DE=COUNT 


O15E 


O15E 


O15E 
O15E 
O15E 


O15E 


D15E 
O15F 
0162 
0162 
0163 
0164 
0165 
0166 
0169 
O16A 
016B 
O16E 
O16E 
O16F 
0172 
0173 
0176 


0176 


0176 
0176 
0178 
0178 
OTE 
O17F 


0182 


FA 


40 


02 


01 


01 


03 
01 


03 
02 


01 


1780 
1785 


1790 


1795 
1800 
1805 
1810 
1815 
1820 
1825 
1830 
1835 
1840 
1845 
1850 
1855 
1860 


(1865 


1870 
1875 
1880 
1885 
1890 
1895 


1900 


1905 


1910 


1915 
1920 


e 
* MAIN PROCEDURE TO SAVE A FILE ON TAPE. 
# 


ENTRY: HL 
*# EXIT: 


SAVE 


% 


* 


ADVNC CALL GETFM 


1925 | 
1930 


PUSH 
CALL 


POP 
PUSH 
INX 
INX 
LXI 
MOV 
ORA 
JZ 


MVI 
JZ 


DCR 


JNZ 


CARRY FLAG OFF = 
CARRY FLAG SET = 


BOT! 


iB ;DECR. 


= ADDRESS OF FILE CONTROL BLOCK 
SUCCESSFUL OPERATION 
NON-ZERO RETURN CODE 
IN ACC. AND IN FCBRC. 


H *(SP)=&FCB 

INITS ;INITIALIZE CONTROLLER 
H 5&FCB 

H 

? | 

H sHL=&FCBFP | 
D,IBGPL ;DE=LENGTH OF GAP 
A,M s;ACC=FILE POSITION 


A -IS FILE POSITION = 0? 
SAVE3 ;YES, WRITE FILE FROM 
;CURRENT POSITION OF TAPE. 
-B=FILE POSITION 

;FIND BEGINNING OF TAPE 

B sFIRST FILE? 

SAVE2 ;YES, START WRITING HERE. 


B,A 


* ADVANCE TAPE TO REQUIRED FILE POSITION - 1 
# 7 


C, FMARK 

>GET NEXT FILE MARK 

-JUMP IF END OF TAPE 
FILE POSITION 
sLOOP UNTIL ZERO 


FPERR 
ADVNC 


0182 
0182 
0182 
0185 


0188 
018B 


O18E 
018E 
0191 
0192 
0193 
0196 
0197 
0198 
0199 
O19C 
Q19C 
O19F 
019F 
O1TA2 
O1A4 
O1A7 


O1AA. 


O1AD 
O1AD 
O1AD 
O1AD 
O1AF 
01B2 
01B3 
01B5 
01B8 
O1B9 
O1BC 
O1BF 
O1BF 
01C0 
01C2 
01C5 
01C6 


01C6 


01C9 
O1CA 
O1CB 


01CC 


01CD 
O1CE 


O1CF 


01D0 
O1D1 
01D2 
01D3 


94 


93 
40 


FO 
16 
B6 
22 
27 


55 
CA 


, 03 


E2 


C3 
22 


05 
E2 


07 


03 


01 


O11 


03 


03 
02 


02 


03 


02 


03 
02 


O02 


00 


1935 


1940 
1950 


1955 


1965 
1970 
1975 
1980 
1985 


1990 


1995 
2000 
2005 
201.0 


2015 


2020 
2025 
2030 
2035 


2040 
2045 


2050 
2055 
2060 


2080 


2085 


2090 
2095 
2100 
2105 
2110 
2115 
2120 
2125 
2130 
2135 


2140 
2745 


2150 


2155 
2160 


2165 
2170 
2175 
2180 


2185, 


2190 


PASS 


# | 
* TAPE IS POSITIONED, NOW SAVE THE FILE 
2065 * 
2070 

2075 


CALL 
CALL 
CALL 
JC 


LXI 


DAD 


XCHG 
CALL 
DCX 
MOV 
ORA 
JNZ 


LXI 


CALL 
MVI 
CALL 
JZ 
JC 


MVI 
CALL 
POP 
MVI 
CALL 


PUSH 


CALL 
JZ 


POP 
MVI 
CALL 
PUSH 


LXI 
DAD 
MOV 
INX 
MOV 


- SUB 


MOV. 


MOV 
SBB 


MOV | 


— INX 


ay /s, 


* READ THROUGH THIS FILE. 
1945 


;GO PAST FILE ID/TYPE 
‘GO PAST BEGIN. ADDR 
‘GET DATA COUNT IN D-E 
‘JUMP IF PARITY ERROR 


GETDW. 
GETDW 
GETDW 
UNCPE 


H, TRLRL+2 
D 

;DE=DE+LENGTH OF TRLR+2 
GETCH ;GO PAST ALL DATA 


D -DECREMENT COUNT 

A,D 

E318 COUNT = 0 YET? 
PASS ;NO, CONTINUE LOOPING 


D,LEADL ;DE=LENGTH OF LEADER 


SXMTC ;SEND TRANSMIT COMMAND 
B,SYNC ;B=SYNC WORD, DE=COUNT 
SAVBL ;WRITE BLOCK OF SYNC WORDS 
OUTTP ;JUMP IF END OF TAPE : 
WPROT ;JUMP IF WRITE PROTECTED - 


B,FMARK 
SAVCH ;WRITE FILE MARK. 
H ;&FCB | 


A,FCBID-FCB | 
EXT ;GET FILE ID/TYPE IN D-E 
H oe 

SAVDW ;OUTPUT FILE ID/TYPE 
OUTTP ;JUMP IF END OF TAPE 


H ;&FCB 
A,FCBBG-FCB 
EXT sGET BEGIN. ADDR IN D-E 
H | | 


B,FCBEN-FCB 
;HL=&FCBEN 
;COMPUTE HL=FCBEN-DE+1 


;HL=DATA LENGTH 


01D3 
01D5 
01D8 
Q1DB 
01DC 
O1DC 
O1DF 
01E2 
01E2 
01E3 
01E6 
0159 
O1EC 
O1ED 
OEE 
O1EF 
O1FO 


O1F3 


O1F3 
O1F4 
O1F6 
O1F9 
O1FA 
O1FD 
0200 
0200 
0201 
0204 
0207 
020A 
020D 
0210 
0213 


03 


02 


03 
02 


03 


02 


02 


O01 


2195 
2200 
2205 
2210 
2215 
2220 
2225 
2230 
2235 
2240 


2245 


2250 
2255 
2260 
2265 
2270 
2275 
2280 
2285 


(2290 


2295 
2300 
2305 
2310 


2315 
2320 
2325 


2330 


2335 


2340 
2345 
2350 
2355 


SAVNX 


OUTTP 


B,C 


if 


-RE-SET LONG. PARITY — 
;OUTPUT BEGIN. ADDR. 
-JUMP IF END OF TAPE 
-DE=DATA LENGTH 
-HL=BEGIN. ADDR 
-OUTPUT DATA LENGTH 

- JUMP IF END OF TAPE 


C,0 
SAVDW 
OUTTP 


SAVDW 


;B=CHAR. TO OUTPUT > 
;SAVE DATA FROM MEMORY 
;JUMP IF END OF TAPE 
;JUMP IF WRITE PROTECTED 


H sINCR. MEMORY POINTER 


D :DECR. COUNT 
A,D : 
E ;IS COUNT = 0 YET? 

SAVNX :NO, CONTINUE LOOPING 


H  3&FCB 

A,FCBAS-FCB 

EXT sGET AUTOSTART IN D-E 
H 
SAVDW 
OUTTP 


“OUTPUT AUTOSTART ADDR 
> JUMP IF END OF TAPE 


3;B=COMPUTED LONG. PARITY 
D,TRLRL ;DE=LENGTH OF TRAILER 
SAVBL ;OUTPUT TRAILER 
OUTTP ;JUMP IF END OF 
TBE jMAKE SURE XMTR 
MOFF ;TURN MOTOR OFF 
DONE 


TAPE 
BUFFER EMPTY 
AND DELAY 


0213 
0213 
0213 
0215 
0218 


O21A 


021D 
O21F 
0222 


0224 


0227 


0229. 


022C 
O22E 
O22E 


O2eF 


0230 
0233 
0233 
0234 
0234 
0237 
0237 
0239 
023B 
023B 
023B 
023B 
023B 
023B 
023B 
023B 
023B 
023B 
023C 
023D 
0240 


C3 3B 


C3 3B 


F6 01 
3E 00 


E 1 


TT 
C3 F6 


02 
02 
02 
02 
O02 


02 


O02 


03 


IX 


RETURN CODES AND STATUS FLAGS 


2360 *- 

2365 * SET 

2370 * 

2375 UNCPE MVI A,RC1 

2380 JMP ERROR 

2385 NOFIL MVI A,RC2 

2390 JMP ERROR 

2395 VFYER MVI A,RC3 

2400- JMP ERROR 

2405 OUTTP MVI A,RC4. 

2410 JMP ERROR 

2415 WPROT MVI A,RC5 
2420 JMP ERROR 

2425 FPERR MVI A,RC6 

2430 * : 

2435 ERROR ORA A 

2440 STC 

2445 JMP EXIT 

2450 # 

2455 ENDTP XRA A 

2460 * 

2465 JMP EXIT 
2470 * 

2475 DONE ORI 1 

2480 MVI A,RCO 

2485 * 

2490 * 

2495 * 

2500 # 

2505 * 

2510 * 

2515 * 

2520 * 

2525 * 

2530 EXIT POP H 

2535 MOV M,A 

2540 


;UNCORRECTABLE P.E. 
sFILE NOT FOUND 
;VERIFY ERROR 

;OUT OF TAPE 

*WRITE PROTECTED 
;FILE POSITION ERROR 
:RE-SET ZERO FLAG 


“;SET CARRY FLAG 


-CARRY FLAG RE-SET, 
-ACC=0, ZERO FLAG SET 
‘INDICATES EOT(NOT AN ERROR) 


-RE-SET ZERO & CARRY FLAGS 
-NORMAL RETURN CODE 


* STANDARD EXIT FOR CAT, GET AND SAVE 
ENTRY: (SP)=&FCB, RETURN CODE IN ACC. 
CARRY&ZERO FLAGS INDICATE RESULT OF OPER. 
EXIT: HL=&FCB, STACK CLEANED UP 
FLAGS AND ACC. ARE PRESERVED FOR CALLER 
RETURN CODE IS INSERTED IN FCBRC 
ESF CONTROLLER IS RE=jSET AND MOTOR IS OFF 


>HL=&FCBRC 
;INSERT RETURN CODE IN FCB 


JMP RESET ;RE=SET ESF CONTROLLER 


0240 


0240 
0240 
0240 
0240 
0240 
0240 
0240 
0240 
0240 
0240 
0240 
0240 
0240 
0240 
0241 
0244 
0247 
O24A 
O24A 
O24D 
O24F 
0252 
0255 
0255 
0257 
025A 
025D 
0260 
0260 
0262 
0264 
0265 
0266 
0269 
026C 
O26F 
O26F 
0270 
0271 
—60274 
0277 
O27A 
O27A 
0278 
O27C 
027D 
O27E 


~O27F. 


0282 
0283 
0284 
0285 


0286 
0287 ( 
028A 


BA 


C6 


02 


02 


2545 
2550 
2555 
2560 
2565 
2570 
2575 


2580 


2585 


2590 


2595 
2600 
2605 
2610 


2615 


2620 
2625 
2630 
2635 
2640 
2645 
2650 
2655 
2660 
2665 
2670 
2675 
2680 


2685 | 


2690 


2695 


2700 
2705 
2710 
2715 
2720 
2725 
2730 
2735 
2740 


2745 


2750 


2755. 


2760 


2765, 
2770 
2775 
2780 
2785 
2790 


2795 


2810 
2815 


2820 


2800 
2805: 


IF 


I3 


MAIN PROCEDURE TO CERTIFY A TAPE. 


TAPE HAS A CAPACITY >= HEX FFFF 


BYTES, ONLY HEX FFFE BYTES WILL BE CERTIFIED. 
ENTRY: HL = LENGTH OF TAPE IN BYTES 
EXIT: BC, DE PRESERVED 
ZERO & CARRY FLAGS OFF = TAPE O.K., 
ZERO FLAG SET = END OF TAPE ENCOUNTERED, 


HL=0 


TAPE NOT CERTIFIED, HL HAS APPROX. 
CAPACITY OF TAPE IN BYTES 


ERT PUSH 


CALL 


CALL 


CALL 


LXI 
MVI. 
CALL 
JC 


MVI 
CALL 
LXI 
CALL 


MVI 
MVI 
POP 
PUSH 
CALL 
LXI 
JZ 


XCHG 


MOV 


CALL 
LXI 
JZ. 


POP 


PUSH 


INX 
MOV 
ORA 
JNZ 
POP 
DCX. 
PUSH 
INX 
INX 
JMP 


CARRY FLAG SET = NON-ZERO (ERROR) RETURN 
CODE IN ACC., 


HL HAS ERROR COUNT. 


FIRST, WRITE TEST WORDS ON TAPE 


H 

INITS ;INITIALIZE CONTROLLER 
BOT2 ;FIND BEGIN. OF TAPE 
SXMTC ;SEND TRANSMIT COMMAND 


D,LEADL ;LENGTH OF LEADER 

B,SYNC ;SYNC WORD 

SAVBL -WRITE BLOCK OF SYNC WORDS 
WAIL ;JUMP IF WRITE FAILED 


B, CMARK 

SAVCH ;WRITE FILE MARK 

D, OFFFFH | 
SAVDW ;WRITE DUMMY FILE ID 


B,CCHAR ;B=TEST CHARACTER 
C,0  ;C=sLONG. PARITY VALUE 
D ;DE= COUNT 

a 


SAVBL ;FILL TAPE WITH TEST CHARS. 
H, TRLRL+1BGPL ;sHL=LENGTH OF TRAILER 


CEOT ;JUMP IF END OF TAPE 
- sDE=sLENGTH OF TRAILER 

B,C ;B=COMPUTED LONG. PARITY 

SAVBL ;WRITE TRAILER 

H,0 | | Ms 

CEOT ;JUMP IF END OF TAPE 

D 

D 3 

D ‘ 

A,E  j;AT FIRST PASS, DE=OFFFFH 

D -IS THIS THE FIRST PASS? 

CERT1 ;NO | | oo 
D =: | 
D *YES, SET CAPACITY TO OFFFEH _ 
D ; 

D-. sDE=0: 

CEOT : 


028A 
028A 
028A 
028D 


O28F © 


0292 
0295 
0297 
O29A 


OQ29A 
029B 


029C 
029D 


O29E 


O29F 
O2A0 


O2A1 


O2A4 
O2A6 
O2A9 
O2AA 
O2AB 
O2AC 
O2AD 
02B0 


02B0. 
O2B1 


O02B4 
02B5 
02B8 
02B9 
O2BA 


O2BB- 


O2BC 
O2BF 
02C0 
02C2 
02C3 
02C6 


DB 
CC 


FF 


1F 
O02 
DY 


00 


F6 


03 


FF 
03 


02° 


03. 


02 


02 


03 
02 


02 


03 


20c0.% 


1 


2830 * READ BACK AND VERIFY TEST WORDS 


2835 * 


2840 CERT1. CALL 


2845 
2850 


2855 


2860 
2865 


2870 * 


2875 
2880 
2885 
2890 
2895 
2900 
2905 


2910 CERT2 


2915 
2920 
2925 


2930 CERT3 


2935 
2940 


2g45 
2950 * 


2955 
2960 
2965 
2970 
2975 
2980 
2985 
2990 
2995 
3000 
3005 
3010 
3015 


MVI 
LXI 
CALL 
MVI 
JC 


POP. 
PUSH 
XRA 
MOV 


MOV © 


MOV 
MOV 
CALL 
CPI 
JZ 
INX 
DCX 
MOV 
ORA 
JNZ 


MOV 


CALL 


CMP 
JNZ 
MOV 
ORA 
ORA 
ORA 
JNZ 
INR 
MVI 
POP 
JMP 


TBE 


;MAKE SURE XMTR BUFFER EMPTY 
C,CMARK 


D,OFFFFH 


FIND 


A,RC2 . 
$JUMP IF NOT FOUND 


CERR1 


“NO, INCR, 
>DECR. 


-D=COMPUTED LONG. 
GET LONG. PARITY: WORD 


sFIND DUMMY FILE ID 


-DE=DATA COUNT 


;ACC.=0 
;B=PARITY ERROR COUNT 
;C=LONG. 


PARITY VALUE 


 3HL=VERIFY ERROR COUNT 


sGET DATA CHAR. 

;IS IT THE TEST CHARACTER? 
:YES 

ERROR COUNT 
DATA COUNT 


sIS COUNT = 0 YET? 
;NO, CONTINUE LOOPING 


PARITY 


> SAME AS COMPUTED? 
;NO 
: CHECK FOR ERRORS 


:BC, HL SHOULD = 0 


- JUMP IF ANY ERRORS 
-RE=SET ZERO & CARRY FLAGS 
*-NORMAL RETURN CODE 
‘THROW AWAY ORIGINAL COUNT 


02C6 
02C6 
02C6 
O2C7 
02C8 
02C8 
02C9 
O2CA 
O2CB 
O2CC 
O2CD 
O2CE 


O2CF C 


02D2 
02D2 
02D4 
02D7 
02D9 
O2DC 
O2DD 
O2DE 
O2DF 
02E2 
02E2 
O2E2 
02E2 
02E2 
02E2 
02E3 
O2E4 
O2E5 
O2E7 
O2E8 
02E9 
O2EA 
O2EB 
O2EC 
O2ED 
O2EE 
O2EE 
O2EE 
O2EE 
O2EE 
O2EE 


O2EF 


O2F0 
O2F 1 
O2F3 
O2F4 
O2F5 
O2F6 
O2F7 
O2F8 
O2F9 
O2FA 


F6 
01 


DC 


05 
00 


F6 


00 


00 


03 


02 
00 


- 


3020 


3290 


m | | | 
3025 * COMPUTE APPROX. CAPACITY (IN BYTES) OF TAPE 
3030 * 

3035 CEOT DAD D > HL=DEFICIT 
3040 POP D :DEZESTIMATED CAPACITY 
3045 * : | 
3050 MOV A,E  ;COMPUTE HL=DE-HL 
3055 SUB L. io 
3060. MOV L,A 
3065. MOV A,D 
3070 SBB H 
3075 MOV H,A. ;HLsAPPROX. CAPACITY 
3080 XRA A ;ACC.=0,Z SET, C RE-SET 
3085 JMP RESET 
3090 * _ | 
3095 PAERR MVI A,RC1 ;UNCORRECTABLE P.E. 
3100 JMP CERR2 
3105 WFAIL MVI A,RC5S ;WRITE PROTECTED 
3110 CERR1 LXI H,0 
3115 CERR2 ORA A sRE-SET ZERO FLAG 
3120 STC >SET CARRY FLAG 
3125. POP D -THROW AWAY ORIGINAL COUNT 
3130 JMP RESET ;RE-SET ESF CONTROLLER 
3135 * 
3140 * EXTRACT 2-BYTE VALUE FROM FCB 
3145 * ENTRY: ACC = OFFSET; HL = &FCB 
3150 * EXIT: DE = VALUE; BC,HL PRESERVED 
3155. * | | 
3160 EXT PUSH H 
3165 ADD L sHL=HL+ACC 
3170 MOV L,A 
3175 MVI A,O 
3180 ADC H 
3185 MOV H,A 
3190 MOV E,M  ;DE=(HL) 
3195 INX H 
3200 MOV D,M 
3205 POP 4H 
3210 RET 
3215 * | 
3220 * INSERT 2-BYTE VALUE INTO FCB. | 
3225 * ENTRY: ACC = OFFSET; DE = VALUE; HL = &FCB 
3230 * EXIT: BC,DE,HL PRESERVED 
3235 * 
3240 INS PUSH H | 
3245 ADD Ls sHLsHL+*ACC_ 
3250 MOV L,A | : 
3255 MVI A,O 
3260 ADC H | | 
3265 MOV H,A | 
3270 MOV M,E  ;(HL)=DE 
3275 INX H | 
3280 — MOV M,D. 
3285 POP H 
RET 


{S- 


O2FA 
O2FA 
O2FA 
O2FA 
O2FD 
0300 
0301 
0302 
0303 
0304 
0306 
0308 
O30A 
030C 
030D 
030D 
030D 
030D 
030F 
0312 
0312 


0315 


0316 
0317 
0318 


0319 - 


O31A 
031B 
O31E 
O31F 


FB OF 


FF OF 


40 
BC 
16 
12 


31 
FF OF 


00 20 


15 03 


lO 


3ego* _ | | 
3300 * INITIALIZE SYSTEM AND START MOTOR. 
3305 * EXIT: HL = &CONTROL PORT; BC = 0 
3310 * | | 
3315 INITS LDA SWTPT ;FORCE SINGLE DENSITY 
3320 LXI H,CTLPT ;HL=&CONTROL PORT 
3325 XRA A >DUMMY WORD 
3330 MOV M,A ;SEND IT 3 TIMES 
3335 MOV M,A. 
3340 MOV M,A 
3345 MVI M,RSTC ;SEND RESET COMMAND 
3350 MVI M,MODC ;SEND MODE COMMAND 
— 3355 MVI M,SYNC ;SEND SYNC WORD 
3360 MVI M,MTRC ;SEND MOTOR-ON COMMAND 
3365 RET | | 
3370 *— 
3375 * MOTOR-OFF AND DELAY ROUTINE 
3380 * | 
3385 MOFF MVI A,MOFC ;TURN MOTOR OFF 
3390 3 STA CTLPT ;(BUT KEEP SENDING) 
3395 * | 
3400. LXI B,8192 ;FOR 200 MSEC. DELAY 
3405 DELAY PUSH B ;sTHIS DELAY LOOP OPERATES 
3410 POP 8B sIN INCREMENTS OF 25 USEC. 
3415 DCX B s(AT 2 MHZ CLOCK RATE) 
3420 MOV A,B ;THE NO. OF INCREMENTS IS IN © 
3425 MOV A,B ;B-C AT START OF LOOP. 
3430 ORA C 
3435 JNZ DELAY 
3440 | 


RET 


O31F 
031F 


O31F 
O31F 
O31F 
O31F 


O31F 


O31F 
O31F 
O31F 
0321 
0324 
(0327 


0328 
0329 


032A 
032B 
O32E 
0331 
0334 
0337 
0338 
033B 
033E 
O335 
0340 
0343 
0344 
0345 
0346 
0347 
O34A 
034B 


al 


03 
03 


03 
03 
03 
03 


03 


93 


03 


03 


3445 
3450 
3455 
3460 
3465 
3470 
3475 
3480 
3485 
3490 
3495 
3500 
3505 
3510 
3515 
3520 
3525 
3530 
3535 
3540. 
3545 
3550 
3555 
3560 
3565 
3570 
3575 
3580 
3585 
3590 
3595 


* eK KK OK OK 


* 


FIND 
FIND1 


C 


/7 


FIND THE REQUIRED FILE ON THE TAPE. 
ENTRY: D = FILE TYPE, E = 
= FILE MARK | 
EXIT: BHL DESTROYED, CDE PRESERVED 

CARRY FLAG OFF = 


FILE ID TO FIND 


TAPE IS CORRECTLY POS- 


ITIONED TO READ THE BEGINNING ADDRESS 
FROM THE REQUIRED FILE. 


MVI 
CALL 
JNZ 


FIND2 XRA 


FIND3 


3600 


3605 


CMP 
RC 


CARRY FLAG SET = 


B,O 
GETFM 
FIND3 


FILE NOT FOUND 


;RE-SET END-OF-TAPE SWITCH 
sGET NEXT FILE MARK 

;JUMP IF NOT EOT 

sACC=0 

;sHAS EOT BEEN PASSED? 
sYES, RETURN CARRY SET. 
sNO, SET EOT SWITCH. 

;FIND BEGINNING OF TAPE 


sGET FILE ID 

;JUMP IF EOT 
*L=FILE ID 

;GET FILE TYPE 
‘JUMP IF EOT 
sH=FILE TYPE 
sCORRECT FILE TYPE? 


-NO, KEEP LOOKING 
“sCORRECT FILE ID? 


sYES | 
sREQ'D FILE ID = 0? 


-NO, KEEP LOOKING 


‘YES, ACCEPT ANY FILE ID. 


O34B 
O34B 
O34B 
0348 
O34E 
O34F 
0351 
0354 


0355 


0357 


035A 


035B 
0358 
035B 
035B 
035B 
035B 
035B 
035D 
0360 
0363 
0366 
0367 
0368 
036B 
036D 
0370 
0373 
0374 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0376 
0379 
O374A 
037C 
_O37F 


0380 
0382 ( 


0385 
0388 

0389 
O38A 


FF 


80 
KE 


80 
54 


96 
Fe 
PE 
1D 


(si 


16 
63 
5B 


ae Te 


80 


88 


02 
76 
FE. 


OF 
03 


03 


OF 
OF 
03 
03 


03 


03 


OF 


03 


03. 
OF 


3610 
3615 
3620 
3625 
3630 
3635 


3640 


3645 
3650 
3655 
3660 
3665 
3670 
3675 
3680 
3685 
3690 


3695 


3700 
3705 
3710 


3715 


3720 
3725 
3730 
3735 
3740 
3745 
3750 
3755 
3760 
3765 
3770 
3775 
3780 
3785 
3790 
3795 


3800 


3805 
3810 
3815 
3820 


3825 
3830 


3835 


3840 


IS 


* 
* FIND BEGINNING OF TAPE 
# = &CONTROL PORT, NOT CHANGED 


ENTRY: HL 


¥ 


BOT1 


BOT2 


BOT3 


C) *% % HK Mw H 


ENTRY: 
EXIT: 


GETFe 


GETFX 


x K KH OK 


% 


GETWD PUSH B 


GET 
DOES 


EXIT: ZERO FLAG OFF = 


ETFM MVI 


STA 
LDA 
CALL 
RZ 
CMP 
JZ 
CPI 
JZ 
JMP 
ORA 
RET 


DATA 
NOT 


H,CTLPT ;HL=&CTLPT 


ALM 
EOTM 
BOT2 
A,M 
EOTM 
BOT3 


;GET STATUS 

;END OF TAPE? 

;NO, LOOP AGAIN 

sGET STATUS 
;END=#=OF=TAPE MARKER? 
;YES, LOOP AGAIN 


GET NEXT BEGINNING-OF-FILE MARK 

REG. C HAS FILE MARK CHARACTER 
ZERO FLAG OFF = 
ZERO FLAG SET = 


FILE MARK FOUND 
END OF TAPE 


A, HUNC 


CTLPT 
DATPT 
GETWD 


>SEND HUNT COMMAND 
-RE-SET STATUS 
-GET DATA WORD 


sRETURN IF EOT 
C ‘FILE MARK? 


GETFX 
SYNC 
GETF2 ;YES 
GETFM ;NO 


SYES 


sO YNC WORD? 


A -RE-SET ZERO FLAG 


WORD FROM TAPE TO ACC. 
CHECK FOR PARITY ERRORS 


DATA IN ACC. 


ZERO FLAG SET = END OF TAPE 


GETW2 LDA 


GETWX | 


MOV 


CTLPT 


-GET STATUS 


BA 


EOTM 
 GETWX 


A,B 
RDYM 


GETW2 
DATPT 


B 


;SAVE IT 

sEND OF TAPE? 
sYES, 
;sGET STATUS 

;DATA READY? 

;NO, LOOP AGAIN 
sGET DATA IN ACC. 


RETURN Z SET 


CD 94 03 


oF 
D8 
CD 
57 


C9 


94 


03 


OF 


03 


03 


03 


C) *% *& & * 


ke 


*% 


ETDW CALL GETCH 


GET DOUBLE WORD FROM TAPE TO D-E REGS. 
CALLS GETCH, CHECKS FOR PARITY ERRORS. 


‘GET LOW-ORDER BYTE 


MOV E,A  ;IN REG. E 

RC. sRETURN ON ERROR 
CALL GETCH ;GET HIGH-ORDER BYTE 
MOV D,A  ;IN REG. D 

RET 


GET DATA CHARACTER FROM TAPE TO ACC. 
THIS ROUTINE CHECKS FOR PARITY ERRORS 
ENTRY: REG. B = PARITY ERROR COUNT 
REG. C = 
EXIT: B AND C ARE UPDATED; DE, HL PRESERVED. 
CARRY FLAG OFF = 
CARRY FLAG SET = 


LONGITUDINAL PARITY VALUE 


DATA IN ACC. 
PARITY ERROR 


GETCH PUSH H 


GETC2 


PEI 
| GETC3 


LXI 


H,CTLPT 
;GET STATUS 
-DATA READY? 
-NO, TRY AGAIN 
3GET STATUS 


PAEM ;PARITY ERROR? 

GETC3 ;NO, CARRY IS RE=-SET 

M,RCVC ;YES, RE-SET P/E FLAG 

A,B | 3 

255 31S P.E. COUNT >= 255? 

PE 1 sYES 

Bo sNO, INCR. P.E. COUNT 
sSET CARRY FLAG 

H sHL=&DATA PORT 

A,M ;GET DATA IN ACC. 

PSW sSAVE FLAGS & DATA 

C 

C,A sUPDATE LONG. PARITY 

PSW ;RESTORE FLAGS & DATA 

H | 


5 


0386 
03B6 
0386 
03B6 
03B6 
03B6 
03B6 
03B6 
03B6 
03B6 
03B6 
03B6 
03B6 
O3B9 
O3BA 
O3BB 
O3BC 
03BD 
O3BE 
03C1 
03C2 
03C3 
0303 
03C3 
03C3 
0303 
03C3 
03C4 
03C7 
03C8 
03C9 
O3CA 
O3CA 
O3CA 
O3CA 
O3CA 
O3CA 
O3CA 
O3CA 
O3CB 
03CE 


O3CF 


03D0 
03D1 
03D2 
03D3 
03D4 
03D5 


03D8 


O3DA 
O3DB 


CD 


CD 


CA 03 


B6 03 


CA 03 


DB 03 


FE OF 
FF 


4050 
4055 
4060 
4065 
4070 
4075 
4080 
4085 
4090 
4095 
4100 
4105 
4110 
4115 


4120 
4125 


47130 


4140 - 
4145 
4150. 


4455 
4160 
4165 
4170 
4175 
4180 
4185 
4190 


4195 | 
4200. 


4205 
4210 
4215 
4220 
4225 


4230 


4235 
4OuQ 
HOUS 
4250 


4255 
4260 
4265 


4270 


4275 


4280 


4285 


4290 


4295 - 
4300: 


ZERO AN 
ZERO FL 
CARRY F 


SAVE A 
ENTRY: 


EXIT: B 


* HK Kw KK KK KH KK HK. 


SAVBL CAL 
RZ 
RC 
DCX 
MOV 
ORA 
JINZ 
INR 
RET 
re 
* SAVE A 
* ENTRY: 
* DE = 
# | 
SAVDW MOV 
CAL 
RZ 
RC 
MOV 


SAVE A 
ENTRY: 


ee KKK HE OK 


SAVCH PUS 
CAL 


AT EXIT 


DE = 


20 


FROM ALL TAPE OUTPUT ROUTINES: 

D CARRY FLAGS OFF = SUCCESSFUL OPER. 
AG SET = END OF TAPE 

LAG SET = WRITE PROTECTED 


‘BLOCK OF LEADER, TRAILER OR SYNC WDS 
B = DATA TO OUTPUT 

C = LONGITUDINAL PARITY VALUE 

COUNT (ASSUMED > 0) 

HL = NOT USED 


PRESERVED, C UPDATED, D-E ZEROED 
L SAVCH ;SAVE ONE CHAR. 
| ;RETURN IF EOT 
: RETURN IF WRITE FAILED 
D ;DECR. COUNT 
A,D 
E ;LS COUNT = O YET? 
SAVBL ;NO, CONTINUE LOOPING 


SRE=SET ZERO AND CARRY 


TWO- BYTE VALUE 
BC = SAME AS ABOVE, HL = NOT USED 
VALUE TO OUTPUT (E FIRST), PRESERVED 


BLE | 
L SAVCH ;SAVE LOW-ORDER BYTE 
- *RETURN IF EOT 
;RETURN IF WRITE FAILED 
B.D 
*SAVE HIGH-ORDER BYTE 


DATA CHARACTER ON TAPE. 

B = DATA TO OUTPUT,PRESERVED AT. EXIT 
C = LONGITUDINAL PARITY,GETS UPDATED 
DE, HL NOT USED 


H B | : 
L TBE ;WAIT FOR XMTR BUFFER EMPTY 
B 
;RETURN IF EOT 
RETURN IF WRITE PROTECTED 
A,B 
GC OB 
C,A j;UPDATE LONG. PARITY VALUE 
A,B  3DATA TO OUTPUT 
DATPT ;OUTPUT TO DATA PORT 
OFFH ;RE-SET ZERO & CARRY FLAGS 


O3DB 
O3DB 
O3DB 


O3DB - 


O3DD 
03E0 
03E2 
03E3 
O3E6 
O3E8 


O3E9 


O3EA 
O3ED 
O3EE 
O3EF 
O3FO 
O3F0 
O3F0 
O3F0 
O03F2 
O3F5 
O03F6 
03F6 
O3F6 
O3F6 
O3F7 
O3F9 
O3FC 
O3FD 
O3FE 
O3FE 
O400 
0400 
0400 
O400 
O400 
0400 


0400 


0400 
0400 
0401 
O402 
0403 
O404 
0405 
O40T 
O4#09 
O40B 
O40D 
O40D 


33 
FF 


40 
FF 


FF 


OF 


OF 


03 


OF 


OF 


4305 * | | 
4310 * WAIT FOR TRANSMITTER BUFFER EMPTY 
4315 * EXIT: REG. C DESTROYED! 
4320 # 
4325 TBE MVI C,129 ;INITIALIZE TIMER VALUE 
4330 TBEL LDA CTLPT ;GET STATUS 
4335 ANI EOTM ;END OF TAPE? 
4340 RZ ‘YES, RETURN Z FLAG SET. 
4345 LDA CTLPT ;GET STATUS © 
4350 ANI TBEM 3;XMTR BUFFER EMPTY? 
4355 RNZ ‘YES, RETURN Z&C RE=SET 
4360 - DCR C -DECREMENT TIMER 
4365, JNZ TBEL ;CONTINUE LOOPING IF NOT 0 
4370 INR C sRE=SET ZERO FLAG 
4375 STC >SET CARRY FLAG 
4380 RET 
4385 * 
4390 * SEND TRANSMIT COMMAND 
4395 * 
4400 SXMTC MVI A,XMTC 
4405 STA CTLPT 
4410 RET 
4415 —_ | 
4420 p RESET CONTROLLER, TURN MOTOR OFF 
4y25 2 | a 
4430 RESET PUSH PSW 
4435 MVI A,RSTC 
“44g STA CTLPT 
YYAs POP PSW 
4450 RET | 
HYSS5 # 
4460 DW OFFFFH ;NOT USED 
W465 * 
4470 # DEFINITION OF FILE CONTROL BLOCK (FCB) 
4475 * THIS SPACE IS NOT ACTUALLY USED BY THE 
4480 * ESF UTILITY. INSTEAD, THE CALLER SUP- 
4485 * PLIES ITS OWN FCB WHICH CAN BE ANYWHERE 
4490 * IN MEMORY. 
44Q5 # 
4500 FCB EQU $ 
4505 FCBRC DS. 1 ;RETURN CODE 
4510 FCBOP DS. 1 ;OPTION (GET, CAT) 
4515 FCBFP DS. 1 :FILE POSITION (SAVE, CAT) 
4520 FCBID DS. 1 ;FILE ID 
4525 FCBTY DS. 1 ;FILE TYPE 
4530 FCBBG DS 2. ;BEGIN. ADDRESS L-H 
4535 FCBEN DS 2 ;ENDING ADDRESS L-H 
4540 FCBAS DS 2 ;AUTOSTART ADDRESS L-H 
4545 FCBER DS 2 ;DATA ERROR ADDRESS L-H 
4550 FCBLN EQU $ ;FCBLN-FCB = LENGTH OF FCB 


ADVNC 
BOT1 
BOT2 
BOT3 
CAT. 
CCHAR 
CEOT 
CERR1 
CERR2 
CERT 
CERT1 
CERT2 
CERT3 
CMARK 
CTLPT 
DATPT 
DELAY 
DONE 
ECAT 
ECER 
EGET 
EIPL 
EMON 
ENDTP 
EOTM 
ERROR 
ESAV 
ESFCT 
EWTP 
EXIT 
EXT 
FCB 


FCBAS 


FCBBG 
FCBEN 
FCBER 
FCBFP 
FCBID 
FCBLN 
FCBOP 


FCBRC 


FCBTY 
FILER 
FIND 
FIND 1 
FIND2 
FIND3 
FMARK 
FPERR 


0178 
0348 
O34E 
0354 
006B 
0094 
02C6 
02D9 
O2DC 


0240 - 


028A 
O2A1 
O2AA 
OO0CC 
OFFF 


OFFE ~ 


0315 
0237 
0008 
0011 
OOOB 
0000 
0004 
0233 
0080 


O22E 


OOOE 
0000 
0014 
023B 
O2E2 
0400 


0409 
O405 
O407 
O40B 
0402 
0403 
O40D 
0401 
0400 
O404 


0153 


O31F 


0321— 


0327 
0331 
0055 
022C 


1930 
0935 
0460 
3660 
0410 
2695 
2725 
2865 
3100 
0425 
2790 
2945 
2920 
2670 


— 3320 


3710 
3435 
1580 


0955 
3640 
2380 


2445 
0705 


0530 


2085 
0700 
1125 
1480 
1310 


0990 
0530 


1405 
1080 
3535 
3545 
3505 
0945 
1920 


4555 


1880 
2630 


2915 
2755 


2845, 
3390 
3830 


1670 


3655 
2390 


% 


3530 
3645 


2820 


3630 
4290 


1680 


3805 
2400 


2465 © 


1060 


0700 


2120 
1515 
1225 
2140 
1690 


1055 


2855 
3575 
3560 


1075 


1130 
0990 
2140 
2295 
2120 
1740 


2085 


3600 


1910 


AX 


3705 3795 3945 4330 4345 4405 4440 


1720 2355 


4335 
2410 2420 


1695 
1055 
2295 


2090 2125 2300 
1125 1225 1310 1480 1515 1690 1740 


2070 


GET 
GET2 
GET3 
GET4 
GET5 
GETC2 
GETC3 
GETCH 
GETDW 
GETF2 
GETFM 
-GETFX 
GETNX 
GETW2 
GETWD 
GETWX 
HALT 
HUNC 
IBGPL 
INITS 
INS 
IPL 
IPLER 
LEADL 
MODC 
MOF C 
MOFF 
MTRC 
NOAS 
NOFIL 
ONEPE 
OUTTP 
PAEM 
PAERR 
PASS 
PEI 
PSW 
RAMCH 
RCO 
RC1 
RC2 
RC3 
RCY 
RC5 
RC6 
RCT 
RC8 


0098 
OOAF 
00C9 
OODE 
OOF5 
0398 
O3AE 


0394 


038A 
0363 
035B 
0373 
OOCF 
0376 


0375. 
0388 — 
0068 


0096 
0140 
O2FA 
O2EE 
001D 
0065 
0140 
OOBC 
0031 
030D 
0012 
0062 
0218 
0129 


0222 


0008 
O2D2 


0193 


O3AD 
0006 
006D 


0000. 


0001 


0002. 


0003 
0004 


~ 0005 
~—0006 


0007 


0008 


0415 


1005 
1210 
1305 
1365 
3960 
3975 
1275 
1170 
3740 
0950 
3730 
1455 


3825 
0965 


3810 
0785 
3700 
1850 
0455 
0995 
0385 
0580 
2020 
3350 
3385 
2350 


3360 


0735 


1085 | 


1550 
2045 


3970 


2970 
2010 
3995 
4020 
0560 
2480 
2375 


2385. 
2395 
2405 
2415 


2425 


0765 
0575 


0680 


1385 
1565 
1250 
1915 


0975 


2720 
0885 
1230 


0685 
2645 


2105 


1600 
1500 


3500 


3540 


1070 
1315 


2210 


2995 


4035 


3005 
3095 


2860 


4430 


3105. 


1990 
1950 


3745 


3555 


1820. 
1485 


2230 


HYUUS 


a3 


2910 2960 3865 3880 


1955 


3715 


2625 
1520 


2250 


1960 | 


1745 


2315 2340 


RCVC 


 RDYM 
RESET 


ROLL 
~RSTC_ 
-SAVBL 
SAVCH 
 SAVDW 
SAVE 


SAVE2 | 


‘SAVE3 
SAVNX 
SP 

START 


— SWTPT 
SXMTC 


-SYNC. 
TBE 

TBEL 

‘TBEM 

TRLRL 
UNCPE 
VERFY 
VFYER 
WFAIL 
WPROT 
XMTC 


FCHK 


A 


0016 
0002 
03F6- 


0132 


0040. . 


03B6 


O3CA 
03C3 


O15E 


O19c 
O19F. 
O1E2 


0006 
0000 


OFFB 
O3FO — 


0016 


O3DB. 


03DD 


Q001 


OOOA 


0213. 
OOFO 
021D_ 
02D7 
0227 


0033 


EXEC COO4 


3980 | 
3820 


O465 © 


— 1630 
3345. 


2040 


2075. 
2100 
0420 © 


3955. 
2540 


2335 
2245 
2205 


18990. 
1865 


0400. 
- 0485 


2030 


— 2035. 
2345 


2635 
2650 
2840 


4365 — 


4350. 
1975 
1175 
1355 


2050 


4400. 


2A00 OFFS ~~ 


2330 
1255 


ATT. 
2660 © 


2255 


2675 
2225 


— 2280002—~—~CO 


3315. 
3355 


4250 


2720 
1505 


3015 


4Y35 
2655. 


3085 3130 


2715 2745 4145. 
2310 2685 


3735 


1555 1575 1610 1640 1965. 


ay 


